#Revisar Regular Expression porque encuentra cualquier cosa
#boton salir a busquedas

#! /usr/bin/perl
use Switch;
use XUL::Gui;

sub pantallaPrincipal{    
	
#PANTALLA PRINCIPAL
	display Window title => "Paradigmas de Programación",
        GroupBox(
			Caption('Menu principal'),	        
			
#BUSQUEDA Y CARGA DE PACIENTES
            #BUSQUEDA
            Label (value=>'Busqueda de Pacientes:', control=>'pacientes'),
			TextBox( id => 'pacientes', width => 200 ),
			Button (id => 'BusquedaPaciente', label => 'Buscar', oncommand => sub {
				#VERIFICA SI SE INGRESARON DATOS DE BUSQUEDA
				if ( ID(pacientes)->value eq '') {print "No ingreso ningun dato para buscar, intente nuevamente";}
				else { $condicion=ID(pacientes)->value; print "Menu Principal: Valor registrado para la busqueda: $condicion\n\n\n"; quit;$var=3;}
				}),

			#CARGA
			Button (id => 'CargarPaciente', label => 'Cargar Paciente', oncommand => sub {quit;$var=2; }),
			BR, BR,
			
#BUSQUEDA Y CARGA DE MEDICOS
			#BUSQUEDA
			Label (value=>'Busqueda de Medicos:  ', control=>'medicos'),
			TextBox( id => 'medicos', width => 200 ),
			Button (id => 'BusquedaMedicos', label => 'Buscar', oncommand => sub {
				#VERIFICA SI SE INGRESARON DATOS DE BUSQUEDA
				if ( ID(medicos)->value eq '') {print "No ingreso ningun dato para buscar, intente nuevamente";}
				else { $condicion=ID(medicos)->value; print "Menu Principal: Valor registrado para la busqueda: $condicion\n\n\n"; quit;$var=7;}
				}),

			#CARGA
			Button (id => 'CargarMedico', label => 'Cargar Medico ', oncommand => sub {quit;$var=5; }),
			
			BR,	BR,

#BUSQUEDA Y CARGA DE HISTORIAS CLINICAS	
			#BUSQUEDA
			Label (value=>'Consulta HC:                  ', control=>'hc'),
			TextBox( id => 'hc', width => 200 ),
			Button (id => 'ConsultaHC', label => 'Buscar', oncommand => sub {}),
			
			#CARGA
			Button (id => 'CargarHC', label => '    Cargar HC    ', oncommand => sub {}),

#CONTROLES DE CIERRE	
			BR,BR,
            Button(
				id        => 'salir',
                label     => 'Salir',
                oncommand => sub {quit; $var=0; }
            ),

          );
 }
 


sub muestraPaciente{
	print "PANTALLA MUESTRA PACIENTE: recibio para mostrar:";
	print "$match{Nombre}";
	display Window title => "Paradigmas de Programacion",
        GroupBox(
			Caption('Muestra Paciente'),
			        
            Label (value=>'Nombre:'),
            Label (value=>$match{Nombre}),
            
			BR,
			Label (value=>'Apellido:'),
			Label (value=>$match{Apellido}),
			BR,
			Label (value=>'DNI:'),
			Label (value=>$match{Dni}),
			BR,
			Label (value=>'Fecha de Nacimiento: '),
			Label (value=>$match{Fecha}),
			BR,
			Label (value=>'Historia Clinica'),
			Label (value=>$match{Id}),
			BR,
			Label (value=>'Sexo: '),
			Label (value=>$match{Sexo}),
			BR,
			Label (value=>'Direccion:'),
			Label (value=>$match{Direccion}),
			BR,
			Label (value=>'Telefono: '),
			Label (value=>$match{Telefono}),
			BR,
			Label (value=>'e-mail:'),
			Label (value=>$match{Mail}),	
				
					
			
			BR,BR,
			Button(id => 'VerHC',label => 'Ver HC',oncommand => sub {}),
			Button(id => 'VerTurnos',label => 'Ver Turnos',oncommand => sub {}),
			BR,BR,
			Button(label => 'Salir',oncommand => sub {quit;$var=1;})
			);	
}

sub cargaPaciente{
	$j=0;
	for($i=1900;$i<2011;$i++){
		@anios[$j]=$i;
		$j++;
	}    
	display Window title => "Sistema choto de pacientes",
        GroupBox(
			Caption('Carga de un Paciente'),
			        
            Label (value=>'Nombre:', control=>'nombre'),
            TextBox( id => 'nombre', width => 200 ),
			BR,	
			Label (value=>'Apellido:'),
			TextBox( id => 'apellido', width => 200 ),
			BR,	
			Label (value=>'DNI:'),
			TextBox( id => 'dni', width => 200 ),
			BR,
			Label (value=>'Fecha de Nacimiento'),
			MenuList(id=>"dia", 
				MenuPopup map {MenuItem label => $_} qw/1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30/
			),
			
			MenuList(id=>"mes",
				MenuPopup(
					MenuItem(label=>"Enero"),
					MenuItem(label=>"Febrero"),
					MenuItem(label=>"Marzo"),
					MenuItem(label=>"Abril"),
					MenuItem(label=>"Mayo"),
					MenuItem(label=>"Junio"),
					MenuItem(label=>"Julio"),
					MenuItem(label=>"Agosto"),
					MenuItem(label=>"Septiembre"),
					MenuItem(label=>"Octubre"),
					MenuItem(label=>"Noviembre"),
					MenuItem(label=>"Diciembre"),
				),
			),
			MenuList(id=>"anio",		
				MenuPopup map {MenuItem label => $_} @anios
			),
			BR,
			Label (value=>'Sexo'),
			RadioGroup( id=>"sexo",
				Radio(id => "masc", value=>"masculino", label=>"Masculino"), Radio(id => "fem", value=>"femenino", label=>"Femenino"),
			),
			BR,
			Label (value=>'Direccion:'),
			TextBox( id => 'direccion', width => 200 ),
			BR,
			Label (value=>'Telefono'),
			TextBox( id => 'telefono', width => 200 ),
			BR,
			Label (value=>'e-mail'),
			TextBox( id => 'mail', width => 200 ),
			BR,BR,
			Button(id => 'Cargar',label => 'Cargar',oncommand => sub {
				$nombre=ID(nombre)->value; 
				$apellido=ID(apellido)->value;
				$dni=ID(dni)->value; 
				$fecha=join("-",ID(dia)->label,ID(mes)->label,ID(anio)->label); 
				$sexo=ID(sexo)->value; ; 
				$direccion=ID(direccion)->value; 
				$telefono=ID(telefono)->value; $mail=ID(mail)->value;
			$archivo="paciente.dat";
			$id=&genID("paciente.dat");
			$guardar = join (';',$id, $nombre,$apellido,$dni,$fecha,$sexo,$direccion,$telefono,$mail);
			quit;
			$var=4;}), 
			BR,BR,
			Button(id => 'Salir',label => 'Salir',oncommand => sub {quit;$var=1;}),  
			);
 }
 
sub buscaPaciente{ 
	 print "FUNCION BUSCA PACIENTES: recibe el valor:";
	 print "$_[0]\n\n";
	 my %match=();
	 my %busqueda=();

#REALIZA LA BUSQUEDA: carga los resultados en %busqueda
	 $flag_true=1;
	 $moreThanOne=0;
	 open(pacientes, "paciente.dat")|| die "no existe el archivo"; # for writin	
				while(<pacientes>){
					chomp;
									
					if(/$_[0]/i){		
						$flag_true=0;
						
						if(!%busqueda){
							($busqueda{"Id0"}, $busqueda{"Nombre0"}, $busqueda{"Apellido0"},$busqueda{"Dni0"}, $busqueda{"Fecha0"},$busqueda{"Sexo0"},$busqueda{"Direccion0"},
							$busqueda{"Telefono0"},$busqueda{"Mail0"}) = split (';',$_); 
							print "Encontro un resultado \n";
						}else{
							$moreThanOne++;
							($busqueda{"Id$moreThanOne"}, $busqueda{"Nombre$moreThanOne"}, $busqueda{"Apellido$moreThanOne"},$busqueda{"Dni$moreThanOne"}, $busqueda{"Fecha$moreThanOne"},$busqueda{"Sexo$moreThanOne"},$busqueda{"Direccion$moreThanOne"},
							$busqueda{"Telefono$moreThanOne"},$busqueda{"Mail$moreThanOne"}) = split (';',$_);
							print "Encontro el resultado num:$moreThanOne \n";
							
						}
					}
				}
				close(pacientes);
				
#NINGUN RESULTADO
	if($flag_true eq 1){
		display Window title => "Paradigmas de Programación",
		GroupBox(
			Caption('Error de Busqueda'),
			 Label (value=>'No se ha encontrado:'),
			 Label (value=>$_[0]),
			 Button(id => 'Aceptar_err',label => 'Aceptar',oncommand => sub {quit; $var=1;}),
			);
	goto fin_buscapacientes;
	}

	
#MAS DE UN RESULTADO
	if($moreThanOne > 0){
		
		#Creación de la lista de resultados para mostrar en pantalla
        my @list = ();
		my $i;

        for($i = 0; $i <= $moreThanOne; $i++)
        {
                #push @list, Label (value=>$busqueda{"Id$i"});
                push @list, Label (value=>$i);
                push @list, Label (value=>$busqueda{"Nombre$i"});
                push @list, Label (value=>$busqueda{"Apellido$i"});
                push @list, Label (value=>$busqueda{"Dni$i"});
                push @list, BR;
        }

		#PANTALLA DE SELECCION DE OPCIONCES DE BUSQUEDA ###############################################################################################################################
		display Window title => "Paradigmas de Programación",
        GroupBox(
			Caption('Se ha encontrado '.($moreThanOne+1).' coincidencias'), BR,
			#Label (value=>'Opcion     Nombre      Apellido     DNI'), 
			@list, 
			BR,BR,
			Label (value=>'Seleccione la Opcion Correcta'), BR, 
			TextBox( id => 'seleccion', width => 200 ),
			Button (id => 'SeleccionarPaciente', label => 'Mostrar', oncommand => sub {	
				#VERIFICA SI SE INGRESO UN VALOR CORRECTO PARA SELECCIONAR
				if ( ID(seleccion)->value eq '' or (ID(seleccion)->value) > ($i-1) or (ID(seleccion)->value) < 0 ) {print "No ingreso un valor correcto, intente nuevamente \n\n";}
				else { quit; $elegido = ID(seleccion)->value; $j=0;}
				}),
			
			Button(id => 'salirselector', label => 'Salir', oncommand => sub {quit; $var=1; $j=1;} ),
		);
		
		if ($j eq 0) {goto cargamatch;} else {goto fin_buscapacientes; }
		
		################################################################################################################################################################################

	cargamatch:
	#carga los valores elegidos por el usuario de la lista de posibles opcines
	%match=("Id"=>$busqueda{"Id$elegido"},"Nombre"=>$busqueda{"Nombre$elegido"}, "Apellido"=>$busqueda{"Apellido$elegido"},"Dni"=>$busqueda{"Dni$elegido"},	"Fecha"=>$busqueda{"Fecha$elegido"},"Sexo"=>$busqueda{"Sexo$elegido"},"Direccion"=>$busqueda{"Direccion$elegido"}, "Telefono"=>$busqueda{"Telefono$elegido"},"Mail"=>$busqueda{"Mail$elegido"});
	print "Se selecciono y cargo correctamente:"; print %match;
	$var = 6;
	return %match;
	}
	

#UN SOLO RESULTADO
	else{
		%match=("Id"=>$busqueda{"Id0"},"Nombre"=>$busqueda{"Nombre0"}, "Apellido"=>$busqueda{"Apellido0"},"Dni"=>$busqueda{"Dni0"},"Fecha"=>$busqueda{"Fecha0"},"Sexo"=>$busqueda{"Sexo0"},"Direccion"=>$busqueda{"Direccion0"},
		"Telefono"=>$busqueda{"Telefono0"},"Mail"=>$busqueda{"Mail0"});	
	
		print "FUNCION BUSCA PACIENTES: ya se presiono boton seleccionar\n El valor de *nombre* de match a esta altura es: $match{Nombre} \n";
		print %match;
		$var = 6;
		return %match;
		}

	
	
fin_buscapacientes:
	
 }


sub muestraMedico{
	print "PANTALLA MUESTRA MEDICO: recibio para mostrar:";
	print %match;
	display Window title => "Paradigmas de Programacion",
        GroupBox(
			Caption('Muestra Medico'),
			        
            Label (value=>'Nombre:'),
            Label (value=>$match{Nombre}),
            
			BR,
			Label (value=>'Apellido:'),
			Label (value=>$match{Apellido}),
			BR,
			Label (value=>'DNI:'),
			Label (value=>$match{Dni}),
			BR,
			Label (value=>'Fecha de Nacimiento: '),
			Label (value=>$match{Fecha}),
			BR,
			Label (value=>'Especialidad'),
			Label (value=>$match{Esp}),
			BR,
			Label (value=>'Sexo: '),
			Label (value=>$match{Sexo}),
			BR,
			Label (value=>'Direccion:'),
			Label (value=>$match{Direccion}),
			BR,
			Label (value=>'Telefono: '),
			Label (value=>$match{Telefono}),
			BR,
			Label (value=>'e-mail:'),
			Label (value=>$match{Mail}),	
				
					
			
			BR,BR,
			Button(id => 'VerHC',label => 'Ver HC',oncommand => sub {}),
			Button(id => 'VerTurnos',label => 'Ver Turnos',oncommand => sub {}),
			BR,BR,
			Button(label => 'Salir',oncommand => sub {quit;$var=1;})
			);	
}

sub buscaMedico{ 
	 my %match=();
	 my %busqueda=();

#REALIZA LA BUSQUEDA: carga los resultados en %busqueda
	 $flag_true=1;
	 $moreThanOne=0;
	 open(medicos, "medico.dat")|| die "no existe el archivo"; # for writin	
				while(<medicos>){
					chomp;
									
					if(/$_[0]/i){		
						$flag_true=0;
						
						if(!%busqueda){
							($busqueda{"Id0"}, $busqueda{"Nombre0"}, $busqueda{"Apellido0"},$busqueda{"Dni0"}, $busqueda{"Fecha0"},$busqueda{"Sexo0"},$busqueda{"Esp$0"},$busqueda{"Direccion0"},
							$busqueda{"Telefono0"},$busqueda{"Mail0"}) = split (';',$_); 
							print "Encontro un resultado \n";
						}else{
							$moreThanOne++;
							($busqueda{"Id$moreThanOne"}, $busqueda{"Nombre$moreThanOne"}, $busqueda{"Apellido$moreThanOne"},$busqueda{"Dni$moreThanOne"}, $busqueda{"Fecha$moreThanOne"},
							$busqueda{"Sexo$moreThanOne"}, $busqueda{"Esp$moreThanOne"}, $busqueda{"Direccion$moreThanOne"}, $busqueda{"Telefono$moreThanOne"},$busqueda{"Mail$moreThanOne"}) = split (';',$_);
							print "Encontro el resultado num:$moreThanOne \n";
							
						}
					}
				}
				close(medicos);
				
#NINGUN RESULTADO
	if($flag_true eq 1){
		display Window title => "Paradigmas de Programación",
		GroupBox(
			Caption('Error de Busqueda'),
			 Label (value=>'No se ha encontrado:'),
			 Label (value=>$_[0]),
			 Button(id => 'Aceptar_err',label => 'Aceptar',oncommand => sub {quit; $var=1;}),
			);
	goto fin_buscamedicos;
	}

	
#MAS DE UN RESULTADO
	if($moreThanOne > 0){
		
		#Creación de la lista de resultados para mostrar en pantalla
        my @list = ();
		my $i;

        for($i = 0; $i <= $moreThanOne; $i++)
        {
                #push @list, Label (value=>$busqueda{"Id$i"});
                push @list, Label (value=>$i);
                push @list, Label (value=>$busqueda{"Nombre$i"});
                push @list, Label (value=>$busqueda{"Apellido$i"});
                push @list, Label (value=>$busqueda{"Dni$i"});
          #      push @list, Label (value=>$busqueda{"Esp$i"});
                push @list, BR;
        }

		#PANTALLA DE SELECCION DE OPCIONCES DE BUSQUEDA ###############################################################################################################################
		display Window title => "Paradigmas de Programación",
        GroupBox(
			Caption('Se ha encontrado '.($moreThanOne+1).' coincidencias'), BR,
			#Label (value=>'Opcion     Nombre      Apellido     DNI'), 
			@list, 
			BR,BR,
			Label (value=>'Seleccione la Opcion Correcta'), BR, 
			TextBox( id => 'seleccion', width => 200 ),
			Button (id => 'SeleccionarPaciente', label => 'Mostrar', oncommand => sub {	
				#VERIFICA SI SE INGRESO UN VALOR CORRECTO PARA SELECCIONAR
				if ( ID(seleccion)->value eq '' or (ID(seleccion)->value) > ($i-1) or (ID(seleccion)->value) < 0 ) {print "No ingreso un valor correcto, intente nuevamente \n\n";}
				else { quit; $elegido = ID(seleccion)->value; $j=0;}
				}),
			
			Button(id => 'salirselector', label => 'Salir', oncommand => sub {quit; $var=1; $j=1;} ),
		);
		
		if ($j eq 0) {goto cargamatch2;} else {goto fin_buscamedicos; }
		
		################################################################################################################################################################################

	cargamatch2:
	#carga los valores elegidos por el usuario de la lista de posibles opcines
	%match2=("Id"=>$busqueda{"Id$elegido"},"Nombre"=>$busqueda{"Nombre$elegido"}, "Apellido"=>$busqueda{"Apellido$elegido"},"Dni"=>$busqueda{"Dni$elegido"},	"Fecha"=>$busqueda{"Fecha$elegido"},"Sexo"=>$busqueda{"Sexo$elegido"},"Esp"=>$busqueda{"Esp$elegido"},"Direccion"=>$busqueda{"Direccion$elegido"}, "Telefono"=>$busqueda{"Telefono$elegido"},"Mail"=>$busqueda{"Mail$elegido"});
	print "Se selecciono y cargo correctamente:"; print %match;
	$var = 8;
	return %match;
	}
	

#UN SOLO RESULTADO
	else{
		%match=("Id"=>$busqueda{"Id0"},"Nombre"=>$busqueda{"Nombre0"}, "Apellido"=>$busqueda{"Apellido0"},"Dni"=>$busqueda{"Dni0"},"Fecha"=>$busqueda{"Fecha0"},"Sexo"=>$busqueda{"Sexo0"},"Esp"=>$busqueda{"Esp$0"}, "Direccion"=>$busqueda{"Direccion0"}, "Telefono"=>$busqueda{"Telefono0"},"Mail"=>$busqueda{"Mail0"});	
	
		print "FUNCION BUSCA PACIENTES: ya se presiono boton seleccionar\n\n\n\n Valores de match: \n\n";
		print %match;
		$var = 8;
		return %match;
		}

	
	
fin_buscamedicos:
	
 }
 
sub cargaMedico{
	$j=0;
	for($i=1900;$i<2011;$i++){
		@anios[$j]=$i;
		$j++;
	}    
	display Window title => "Sistema choto de pacientes",
        GroupBox(
			Caption('Carga de un Medico'),
			        
            Label (value=>'Nombre:', control=>'nombre'),
            TextBox( id => 'nombre', width => 200 ),
			BR,	
			Label (value=>'Apellido:'),
			TextBox( id => 'apellido', width => 200 ),
			BR,	
			Label (value=>'DNI:'),
			TextBox( id => 'dni', width => 200 ),
			BR,
			Label (value=>'Fecha de Nacimiento'),
			MenuList(id=>"dia", 
				MenuPopup map {MenuItem label => $_} qw/1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31/
			),
			
			MenuList(id=>"mes",
				MenuPopup(
					MenuItem(label=>"Enero"),
					MenuItem(label=>"Febrero"),
					MenuItem(label=>"Marzo"),
					MenuItem(label=>"Abril"),
					MenuItem(label=>"Mayo"),
					MenuItem(label=>"Junio"),
					MenuItem(label=>"Julio"),
					MenuItem(label=>"Agosto"),
					MenuItem(label=>"Septiembre"),
					MenuItem(label=>"Octubre"),
					MenuItem(label=>"Noviembre"),
					MenuItem(label=>"Diciembre"),
				),
			),	
			MenuList(id=>"anio",		
				MenuPopup map {MenuItem label => $_} @anios
			),
			BR,
			Label (value=>'Sexo'),
			RadioGroup( id=>"sexo",
				Radio(id => "masc", value=>"masculino", label=>"Masculino"), Radio(id => "fem", value=>"femenino", label=>"Femenino"),
			),
			BR,
			Label (value=>'Especialidad'),
			MenuList(id=>"especialidad",		
				MenuPopup map {MenuItem label => $_} qw/Alergologia Analisis_clinicos Anatomia_patologica Anestesiologia_y_reanimacion 
				Angiologia_y_cirugia_vascular Bioquimica_clinica Cardiologia Cirugia_cardiovascular Cirugia_general Cirugia_general_y_del_aparato_digestivo 
				Cirugia_oral_y_maxilofacial Cirugia_ortopedica_y_traumatología Cirugia_pediatrica Cirugia_plastica Cirugia_toracica Cirugia_vascular_periferica
				Dermatologia Traumatologia Endocrinologia_y_nutricion Epidemiologia_y_salud_publica Estomatologia_y_Odontologia Farmacologia_clinica Gastroenterologia
				Genetica Geriatria Hebiatria Hematologia Infectologia Inmunologia Medicina_de_emergencia Medicina_del_sueño Medicina_del_trabajo Medicina_deportiva
				Medicina_espacial Medicina_familiar_y_comunitaria Medicina_fisica_y_rehabilitacion Medicina_forense Medicina_Integrada Medicina_intensiva 
				Medicina_interna Medicina_nuclear Medicina_preventiva Microbiología_y_parasitología Nefrologia Neonatologia Neumologia Neurocirugia
				Neurofisiologia_clinica Neurologia Nutricion Obstetricia_y_ginecologia Oftalmologia Oncologia_médica Oncologia_radioterapica Otorrinolaringologia
				Patologia Pediatria Proctologia Psiquiatria Radiologia Salud_Publica Reumatologia Toxicologia Urologia/
			),
			BR,
			Label (value=>'Direccion:'),
			TextBox( id => 'direccion', width => 200 ),
			BR,
			Label (value=>'Telefono'),
			TextBox( id => 'telefono', width => 200 ),
			BR,
			Label (value=>'e-mail'),
			TextBox( id => 'mail', width => 200 ),
			BR,BR,
			Button(id => 'Cargar',label => 'Cargar',oncommand => sub {
				$nombre=ID(nombre)->value; 
				$apellido=ID(apellido)->value;
				$dni=ID(dni)->value; 
				$fecha=join("-",ID(dia)->label,ID(mes)->label,ID(anio)->label); 
				$sexo=ID(sexo)->value; 
				$especialidad=ID(especialidad)->label; 
				$direccion=ID(direccion)->value; 
				$telefono=ID(telefono)->value; $mail=ID(mail)->value;
				$archivo="medico.dat";
				$id=&genID("medico.dat");
				$guardar = join (';',$id, $nombre,$apellido,$dni,$fecha,$sexo,$especialidad,$direccion,$telefono,$mail);
				quit;
				$var=4;}
				), 
			BR,BR,
			Button(id => 'Salir',label => 'Salir',oncommand => sub {quit;$var=1;}),  
			);
 }


#genera los ID
sub genID{
	if (-e "$_[0]"){
		# si el archivo existe obtenemos el ultimo ID ingresado
		# le sumamos uno y devolvemos
		open(getID, "$_[0]")|| die "no existe el archibo"; # for writin
		my @arch = <getID>;
		close(getID);
	
		($old_id) = split (';', $arch[@arch-1]);
		#print "devuelve $old_id mas uno\n";
		$_[1]=$old_id+1;
	}else{
		#si el archivono existe lo creamos
		#y devolvemos el valor correspondiente
		open(getID, ">$_[0]");
		#print "se creo el archivo y se devuelve un cero\n";
		$_[2]=0;
	}
}
 
&pantallaPrincipal;
 
 #"Event Handler"
 while () {
 if ($var eq 0) {goto Fin;}
 if ($var eq 1) {&pantallaPrincipal;}
 if ($var eq 2) {&cargaPaciente;}
 if ($var eq 3) {%match = &buscaPaciente($condicion); print "\n EVENT HANDLER:pasando a muestra paciente\n El valor de *nombre* del match a esta altura es: $match{Nombre} \n"; }
				
 if ($var eq 4) {$in=open(BBDD, ">>$archivo")|| die "no existe el archibo"; # for writing
				print BBDD $guardar;
				print BBDD "\n";
				close(BBDD);
				&pantallaPrincipal;}
if ($var eq 5){&cargaMedico;}
if ($var eq 6){&muestraPaciente;}

if ($var eq 7){%match = &buscaMedico($condicion); print "\n EVENT HANDLER:pasando a muestra paciente\n"; }
if ($var eq 8){&muestraMedico;}

}

Fin:
 
